inherited FGeraCobrancaProgramada: TFGeraCobrancaProgramada
  Left = 251
  Top = 217
  Caption = 'Gera Cobran'#231'a Programada'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        inherited Pmostrando_excluidos: TPanel
          inherited Situacao_filtro_excluido: TLabel
            Width = 141
          end
        end
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label1: TLabel [0]
          Left = 6
          Top = 49
          Width = 80
          Height = 16
          Caption = 'Compet'#234'ncia '
        end
        object Label2: TLabel [1]
          Left = 306
          Top = 49
          Width = 100
          Height = 16
          Caption = 'Data Vencimento'
        end
        inherited panel2: TPanel
          TabOrder = 4
          inherited SBAtualiza: TSpeedButton
            Left = 809
            Visible = False
          end
          inherited BtnIncluir: TBitBtn
            Left = 10
            Width = 97
            Caption = '&Executar'
          end
          inherited BtnEditar: TBitBtn
            Left = 702
            Top = 40
            Visible = False
          end
          inherited BtnFechar: TBitBtn
            Left = 366
          end
          inherited BtnExcluir: TBitBtn
            Left = 701
            Top = 40
            Visible = False
          end
          inherited DBNavigator1: TDBNavigator
            Left = 696
            Hints.Strings = ()
            Visible = False
          end
          inherited streg: TStaticText
            Left = 572
            Visible = False
          end
        end
        inherited panel3: TPanel
          Top = 414
          Height = 49
          TabOrder = 5
          Visible = False
          inherited BtnSalvar: TBitBtn
            Top = 13
            Visible = False
          end
          inherited BtnCancelar: TBitBtn
            Top = 13
            Visible = False
          end
          inherited stSituacaoReg2: TStaticText
            Top = 17
          end
        end
        object DEDataVencimento: TDateEdit
          Tag = 5
          Left = 306
          Top = 69
          Width = 148
          Height = 26
          ButtonWidth = 26
          NumGlyphs = 2
          TabOrder = 1
          OnEnter = DEDataVencimentoEnter
        end
        object DTPeriodoValidade: TDateTimePicker
          Tag = 5
          Left = 6
          Top = 69
          Width = 127
          Height = 21
          CalAlignment = dtaLeft
          Date = -363
          Format = 'MMMM yyyy'
          Time = -363
          DateFormat = dfShort
          DateMode = dmUpDown
          Kind = dtkDate
          ParseInput = False
          TabOrder = 0
        end
        object DBGrid1: TDBGrid
          Tag = 5
          Left = 0
          Top = 108
          Width = 464
          Height = 131
          DataSource = dsCadastro
          TabOrder = 2
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
        end
        object ProgressBar: TProgressBar
          Left = 1
          Top = 463
          Width = 842
          Height = 21
          Align = alBottom
          Min = 0
          Max = 100
          Step = 1
          TabOrder = 3
        end
      end
    end
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'Select * from Cobranca_Programada Where (CodigoEmpresa = 1)')
    object QCadastroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroTIPODOCUMENTO: TIntegerField
      FieldName = 'TIPODOCUMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.TIPODOCUMENTO'
    end
    object QCadastroCLIENTE: TIntegerField
      FieldName = 'CLIENTE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CLIENTE'
    end
    object QCadastroPORTADOR: TIntegerField
      FieldName = 'PORTADOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PORTADOR'
    end
    object QCadastroPLANO: TIntegerField
      FieldName = 'PLANO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PLANO'
    end
    object QCadastroDIAVENCIMENTO: TStringField
      FieldName = 'DIAVENCIMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DIAVENCIMENTO'
      Size = 2
    end
    object QCadastroVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.VALOR'
    end
    object QCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGOEMPRESA'
    end
    object QCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO'
      Size = 10
    end
    object QCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAMODIFICACAO'
    end
    object QCadastroCENTROCUSTO: TIntegerField
      FieldName = 'CENTROCUSTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CENTROCUSTO'
    end
    object QCadastroHISTORICO1: TStringField
      FieldName = 'HISTORICO1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO1'
      Size = 52
    end
    object QCadastroHISTORICO2: TStringField
      FieldName = 'HISTORICO2'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO2'
      Size = 52
    end
    object QCadastroCONTACONTABIL: TIntegerField
      FieldName = 'CONTACONTABIL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CONTACONTABIL'
    end
    object QCadastroPERIODOVALIDADEINI: TDateTimeField
      FieldName = 'PERIODOVALIDADEINI'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEINI'
    end
    object QCadastroPERIODOVALIDADEFIN: TDateTimeField
      FieldName = 'PERIODOVALIDADEFIN'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEFIN'
    end
    object QCadastroDATAINATIVO: TDateTimeField
      FieldName = 'DATAINATIVO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAINATIVO'
    end
    object QCadastroGERANOTAFISCALVENDA: TSmallintField
      FieldName = 'GERANOTAFISCALVENDA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.GERANOTAFISCALVENDA'
    end
    object QCadastroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PRODUTO'
    end
    object QCadastroSERVICO: TStringField
      FieldName = 'SERVICO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.SERVICO'
      Size = 200
    end
    object QCadastroFORMAPAGAMENTO: TStringField
      FieldName = 'FORMAPAGAMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FORMAPAGAMENTO'
      Size = 40
    end
    object QCadastroABATERETENCAO: TSmallintField
      FieldName = 'ABATERETENCAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.ABATERETENCAO'
    end
    object QCadastroRETEMISS: TSmallintField
      FieldName = 'RETEMISS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.RETEMISS'
    end
    object QCadastroEMITEBOLETO: TSmallintField
      FieldName = 'EMITEBOLETO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EMITEBOLETO'
    end
    object QCadastroFONTERECURSO: TIntegerField
      FieldName = 'FONTERECURSO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FONTERECURSO'
    end
    object QCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_CADASTRO'
    end
    object QCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_AUTERACAO'
    end
    object QCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_EXCLUSAO'
    end
    object QCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_CADASTRO'
    end
    object QCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_EXCLUSAO'
    end
    object QCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_AUTERACAO'
    end
    object QCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object QCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_RECUPERACAO'
    end
    object QCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_RECUPERACAO'
    end
  end
  object QCobrancaProgramada: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from Cobranca_Programada'
      'Where (CodigoEmpresa = 1)'
      ''
      
        'And (PERIODOVALIDADEINI <='#39'2003/08/01'#39' and PERIODOVALIDADEFIN >=' +
        #39'2003/08/01'#39')'
      ''
      'And (DATAINATIVO <> '#39'2003/08/01'#39' )'
      '')
    Left = 207
    Top = 217
  end
  object QContasReceber: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select * from ContasReceber'
      ''
      
        'Order By CR_Codigo,CR_CLIENTE,CR_PLANO,CR_DATAVENCIMENTO,CR_VALO' +
        'R')
    Left = 152
    Top = 81
  end
  object DataSource1: TDataSource
    DataSet = QCobrancaProgramada
    Left = 128
    Top = 128
  end
  object QNotaFiscalvenda: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select  *   From notafiscalvenda')
    Left = 187
    Top = 81
  end
  object QAux: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select  *   From notafiscalvenda')
    Left = 251
    Top = 81
  end
  object QItensNotaFiscalVenda: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select  *   From itensnotafiscalvenda')
    Left = 219
    Top = 81
  end
  object QTipoVenda: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From TipoVenda'
      'order By TipVend_Descricao')
    Left = 251
    Top = 116
  end
  object QCliente: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From Cliente'
      'order By cli_codigo')
    Left = 219
    Top = 116
  end
end
